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ActiveX Controls 








Cow Pluie ActivaXi@®) controls are among the many types of components that use COM technologies to provide 
Tee heroin other types of COM components and services, Activex controls are the third version of OLE contra 
DOM number of enhancements specifically designed to facilitate distribution of components over high-la n 
DEOM to provide integration of controls inte Web browsers. These anhansemants include features such/ | 
SOM randaring and code signing, to allow users to identify the authors of controls before allowing ther 
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Articles in the Press 
4 listing of media coverage on ActiveX and related technologies from various publications. 
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The USB analogue converter published in the November 2003 
issue is a neat circuit tor simple measurement and test purposes. 
The ActiveX component described here can be used to control this 
circuit trom a high level language. 


oMany Elektor Electronics readers constructed this simple level language, such as Delphi, Visual Basic or C++ by Bor- 
circuit, which makes it possible to easily measure analogue land. 

voltages and switch digital outputs via USB. Unfortunately, Since Delphi is one of the most commonly used programming 
the associated Windows program had a limited functionality languages, we'll take a look how we can use this language 

and it wasn't always stable. The author was inundated with with the ActiveX component. 

questions about the program, which led to the development of 

a utility that allows a user of the USB analogue converter to o ° 

write eres program for driving any eae Wh at is ActiveX ? 

The ActiveX component described here can read in analogue An ActiveX component is a piece of software that can be used 
values and drive the digital outputs. This type of control by a host application that incorporates ActiveX control (such 


makes it possible to program the circuit from within any high as C++Builder, Delphi, Visual dBASE, Visual Basic, Internet 
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Explorer or Netscape Navigator), and thereby enhances its 
functionality. 

Delphi comes with several ActiveX components for creating 
graphs, spreadsheets and pictures. You can add these compo- 
nents to the IDE (Integrated Development Environment) and 
use them just like any other standard VCL element (Visual 
Component Library) by including them in the program and 
defining their properties with the help of the object inspector. 
You can also use an ActiveX component on a web page by 
including a link to it in an HTML document and displaying it 
in a browser that supports ActiveX. 

The following is a general method for using an ActiveX com- 
ponent in the Delphi programming environment. We won't 
include all details for writing ActiveX components. For this 
we refer you to the Microsoft Developer's Network (MSDN). 
More information on ActiveX can also be found on 
Microsoft's website. 


The ActiveX component 
picus_brxProj1.ocx 


The author used the original Basic program as the starting 
point and continued development in Delphi4. It should be 
clear that the scope of this article doesn't allow for the inclu- 
sion of a complete course on the development of ActiveX 
components. The Help function in Delphi will provide you 
with the required information. 

The complete installation of the ActiveX component requires 
another seven files. All these files can be found in the folder 
fich_ocx (shown in the screendump in Figure 1). 


Installation 


We'll now go through the installation steps manually, as this 

makes the process clearer than an automatic installation. 

1. The file picus_brxProjl.ocx should be copied to the folder 
c:\windows\system for Windows 98/ME, to the folder 
c:\windows\system32 for Windows 2000 and XP, or to 
c:\WINNT\system32 for Windows 2000 Pro. 

2. Copy all other files from folder fich_ocx to folder c:\Pro- 
gram Files\Borland\Delphi\Imports (the exact folder 
name can vary slightly, depending on the version of Del- 
phi). 

3. Click on Start, Run and type in the command regsvr32 
picus_brxProj1.ocx (Figure 2). 

When this has finished, you should get the message 
shown in Figure 3. 

4. From the Component menu in Delphi choose the Import 
ActiveX Control option, then click on picus_brxProj/, fol- 
lowed by Install and Save (Figure 4). 


When this has completed satisfactorily, the ActiveX compo- 
nent should become visible. 
We can now start writing our own driver program. 


An example with the ActiveX 
component 


There is nothing clearer than an example to help understand 
how things work. We'll start with a very simple one: the tem- 
perature measurement using the LM335, a well-known tem- 
perature sensor made by National Semiconductor. 

Its output voltage is proportional to the temperature. This 
voltage is amplified by a factor of about six by a TL271. The 
circuit diagram is shown in Figure 5. The supply voltage is 
derived from one of the digital outputs of the USB analogue 
converter. Output K2 is connected to the first analogue input 
on the PCB (also K2). 
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Figure 1. All files for 
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Figure 2. The Run 
dialogue box, which 


everybody must 
Type the name of 4 program, Folder, document, or surely have used at 
Internet resource, and Windows will open it For you, some stage. 


| regsvrs2 cwindows|systenseipicus breProjl.oce + | 


























== Figure 3. When this 
Repsvrs2 | message appears 
| the ActiveX 
component has 
been correctly 
registered. 


The program 


1. Start Delphi, choose File/New Application. 
Click on the ActiveX tab, then click on the component 
picus_brx and put it onto Form! (Figure 6). 


2. Puta button (found under the standard elements tab of 
Delphi) onto the form. 
Then put and edit box (also found under the standard ele- 
ments tab) onto the form. 
And finally put a timer (found under the system elements 
tab) onto the form, as shown in Figure 7. 


3. Double-click on Button! and enter the following code: 


procedure TForml.ButtonlClick(Sender: TObject); 
var Val T:real; 
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Figure 4. We can now create our own application. 
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Figure 5. Circuit 
diagram of a simple 
thermometer using 
the well-known 


LM335. 


Figure 6. The object 
'USB Centrale' has 
been placed on the 
form. 
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Figure 7. Form] 
with Button], a 
Timer and an Edit 
box. 


FA Cowritiraante 
Curter 


D g- 0 eo ga e 
ə Glo b -i 


ahe 
Faire 
Fale 


Delphi $- Projecti 
De Edt Search Yew poet Eun Component Qustebase Tools Help | DEEA +] A 
anderd | acditiona | wink? | System | Deta4ocerr| Coste Controis |] 


bt BF 4 Aamar « Be 


ü io 


[ekLettak, Top] 
True 

Faire D 4 Trent 
bdeti sight = SY vaiba Caria 
Pye en = (Sy Wars 

bie 


B Uniti- peas 














DeiiinF nce 
(1S ipa ornai 
eriala 


DahauMander diiin amh 4 


z hadeen 


Figure 8. An OCX 
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begin 
picus brl achive; 
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picus bral Visible; =fLalae; 


emi: 


procedure TForml.Buctonitlick(Sender: Toabpjece): 


begin 


pPicus Brail. (dC SS... 


picus bes) tL (ord (cl 
picus bexi.d2 (Ord (clio: 
picus bexl.dd (Grd (Cl: - 


picus_bexl. Lance; 
end; 


tegin 
Buttonl.C lick; 
end; 


end. 


aE 
Ierzen 





` Dupa? 


el Dumt rere 
peecedure TForml.Timer 0 0 777 ate 





begin 

Val T:=(picus brx1.AN0*5/255); {U/T conversion} 
Editl.text:=floattostr(val T); 

end; 


Double-click on the Timer: 


procedure TForml.TimerlTimer(Sender: TObject); 
begin 

Buttonl1.Click; 

end; 


When you run the program, you should see a temperature- 
dependent voltage appear on the screen. 


Using the outputs 


There is a function in the OCX that allows us to control the 

outputs of the USB analogue converter. We'll use this in the 

following example. 

Open a new form in Delphi and add the following elements: 

- 4 Checkbox elements from the Standard library. 

- | Timer from the System library. 

- | Button from the Standard library and of course our 
picus_brx1 ocx object from the ActiveX library (Figure 8). 


Double-click on the Form and type in the following code: 


procedure TForml.FormCreate(Sender: TObject); 
begin 

picus brxl.active; 

picus brxl.visible:=false; 

end; 


Double-click on Button! and add: 


procedure TForml.ButtonlClick(Sender: TObject); 
begin 

picus brxl1.J(Ord(Checkbox1.Checked) ) ; 
J1(Ord(Checkbox2.Checked) ); 
J2(Ord(Checkbox3.Checked) ); 
picus brx1.J3(Ord(Checkbox4.Checked) ); 


. lance; 


picus brxl. 
picus brxl. 


picus brxl 
end; 


Double-click on the Timer element and add: 


procedure TForml.TimerlTimer(Sender: TObject); 
begin 

Buttonl.Click; 

end; 


Click on the Checkboxes and see how the module outputs 
change their state. 


These programs only show a few of the many possibilities 
that are offered by the USB analogue converter in conjunction 
with the ActiveX control. We'll leave it up to your imagina- 
tion to come up with some other uses. 
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Web pointers: 


ActiveX controls: 


www.microsoft.com/com/tech/ActiveX.asp 
JEDI Visual Component Library: 


hitp://homepages.borland.com/jedi/jvcl/ 


VCLComponents.com: 


www.vclcomponents.com/ 


Author's website (under construction): 


http://dorelec.web.oo.fr 
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